home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / biz / misc / StarAm_Plan.lha / StarAm Plan / Installieren < prev    next >
Text File  |  1998-08-02  |  42KB  |  977 lines

  1. ; $VER: StarAm Plan Install Version 3.02 (26 July 98)
  2. ; Script zum Installieren von StarAm Plan
  3. ; Version für 68000 CPU
  4. ;============================
  5. ; Kompatibilität
  6. ;============================
  7.  
  8. (set #LangMesDE
  9. (cat "Sie benutzen eine stark veraltete Version des Installers (<V42), "
  10.      "daher erscheinen die Standardtexte des Installers auf Englisch. "
  11.      "Wenn Sie Texte in Ihrer Sprache wollen, so brechen sie die Installation jetzt ab (\"Abort Install\" und dann \"Yes\") "
  12.      "und setzen das Merkmal (Tooltype) \"language\" im Piktogramm des Installationsprogramms auf Ihre Sprache. "
  13.      "Starten Sie dann die Installation ein weiteres Mal. Es sollten nun die Standardtexte in Ihrer Sprache erscheinen.\n\n"
  14.      "Sollten Sie dies bereits getan haben, so können Sie diesen Hinweis ignorieren!"))
  15. (set #LangMesGB
  16. (cat "You use a very old version of \"Installer\" (<v42), "
  17.      "so the standard texts of \"Installer\" are in english. "
  18.      "If you want texts in your language, then you must abort the installation now "
  19.      "and set the tooltype \"language\" in the icon of the installation program to your language. "
  20.      "Then start the installation a second time. The standard texts should be in your language now.\n\n"
  21.      "If you've already done this, you can ignore this message!"))
  22. (set #installer-version (shiftright @installer-version 16))
  23. (set #installer-revision (BITAND @installer-version $FFFF))
  24. (if (< #installer-version 42)
  25.     (
  26.     (set #LanguageMask (askchoice (prompt "Wählen Sie bitte Ihre bevorzugte Sprache:\n\nChoose your preferred language please:")
  27.                                   (help @askchoice-help)
  28.                                   (choices "Deutsch" "English" "Italiano")))
  29.     (if (= #LanguageMask 0)
  30.         (set @language "deutsch")
  31.         (if (= #LanguageMask 1)
  32.             (set @language "english")
  33.             (if (= #LanguageMask 2)
  34.                 (set @language "italiano")
  35.             )
  36.         )
  37.     )
  38.     (if (= @language "deutsch")
  39.         (message #LangMesDE)
  40.         (message #LangMesGB)
  41.     )
  42.     )
  43. )
  44.  
  45. (if (= @language "deutsch")
  46. (
  47. ;============================
  48. ;=== Deutsche Erklärungen ===
  49. ;============================
  50. (set #introduction
  51. (cat "\nMit diesem Installationsprogramm können Sie \"StarAm Plan\" "
  52.        "installieren oder updaten.\n\nBenutzereinstellungen "
  53.        "werden nur nach Nachfrage über bereits vorhandene kopiert.\n\n"
  54.        "Es wird automatisch (im EXPERT-Mode wahlweise) ein Verzeichnis für \"StarAm Plan\" erzeugt.\n\n"
  55.        "Die Installation auf Diskette wird aktiv unterstützt."))
  56. (set #Ja "Ja")
  57. (set #Nein "Nein")
  58. (set @askbool-help "Sie sollten diese Frage normalerweise mit \"Nein\" beantworten.")
  59. (set #TMP "RAM:SAP")
  60. (set #longProgrHelp
  61. (cat "Diese Dateien sind das Hauptprogramm, "
  62.      "Voreinstellungen, Imagesund das "
  63.      "Konvertierungsprogramm.\n\n"
  64.      "\"StarAm Plan\" ist das Hauptprogramm\n"
  65.      "\"SAP.s\" ist die Standardeinstellungsdatei\n"
  66.      "\"SAP.obj\" enthält einige benutzer-\n"
  67.      "definierte Objekte.\n\"MathCharDef\" definiert math. Sonderzeichen.\n"
  68.      "\"Piktogramme\" enthält die Images "
  69.      "und ist zum Betrieb zwingend erforderlich!\n"
  70.      "\"Convert\" konvertiert Dateien von "
  71.      "\"StarAm Plan\" Version 1.x. Sie brauchen es nur, "
  72.      "wenn Sie solche Dateien haben. Solche Dateien können mit der aktuellen Version von \"StarAm Plan\" nicht mehr gelesen werden!\n\n"))
  73. (set #ConvertHelp
  74. (cat "\"Convert\" konvertiert Dateien von \"StarAm Plan\" Version 1.x. "
  75.      "Sie brauchen es nur, wenn Sie solche Dateien haben. "
  76.      "Solche Dateien können mit der aktuellen Version von \"StarAm Plan\" nicht mehr gelesen werden!"))
  77. (set #LocaleHelp
  78. (cat "Hiermit bestimmen Sie, welche Sprachen für die Programmtexte von "
  79.      "\"StarAm Plan\" zur Verfügung stehen. Deutsch ist die eingebaute "
  80.      "Sprache und steht deshalb immer zur Verfügung.\n"
  81.      "Die verwendete Sprache stellen Sie im Voreinsteller \"Locale\" "
  82.      "der Workbench ein. Lesen Sie dazu Ihr Handbuch zur Workbench und "
  83.      "die Datei \"ReadMeFirst!\"!\n\n"))
  84. (set #dokHelpT1 "Bitte Lesen - Wichtige Vorinformationen und bekannte Fehler des Programms\n\n")
  85. (set #dokHelpT2 "ReadMeFirst! - Wichtige Informationen für nicht deutschsprachige Benutzer\n\n")
  86. (set #dokHelpT3 "StarAm Plan.guide - Handbuch als AmigaGuide und Online-Hilfe\n\n")
  87. (set #dokHelpT4
  88. (cat "StarAm Plan.dvi - Handbuch zum Ausdruck mit TeX\n\n"
  89.      "Quick Manual - Kurzanleitung auf Englisch\n\n"
  90.      "Geschichte - Geschichte des Programms\n\n"
  91.      "History - Gechichte auf Englisch\n\n"
  92.      "Registrierung - Registrierungsformular\n\n"
  93.      "Register - Registrierungsformular auf Englisch\n\n"))
  94. (set #dokHelpT4s
  95. (cat "StarAm Plan.dvi - Handbuch zum Ausdruck mit TeX\n\n"
  96.      "Geschichte - Geschichte des Programms\n\n"
  97.      "Registrierung - Registrierungsformular\n\n"))
  98. (set #dokHelpT5 "Convert.dok - Anleitung zu \"Convert\"\n\n")
  99. (set #dokHelpT6
  100. (cat "Dateien - Beispiele zu \"StarAm Plan\"\n\n"
  101.      "StarAm_Plan.cd, StarAm_PlanGB.ct, StarAm_PlanIT.cd - Diese Dateien brauchen Sie nur, wenn Sie eine Übersetzung für \"StarAm Plan\" erstellen wollen\n\n"))
  102. (set #ErrorVersion
  103. (cat "\n\"StarAm Plan\" benötigt mindestens AmigaOS 3.0, dies ist Version 39.\n\n"
  104.      "In Ihrem System ist aber nur Version %ld.%ld des AmigaOS installiert.\n\n"
  105.      "Sie sollten Ihr System auf das aktuelle AmigaOS 3.1 (oder höher) updaten!\n\n"
  106.      "Die Installation wird nicht durchgeführt!"))
  107. (set #keine "keine")
  108. ;(set #ErrorCPU
  109. ;(cat "\nDies ist die Version von \"StarAm Plan\", die mindestens eine 68020 CPU und 68881 FPU benötigt.\n\n"
  110. ;     "Ihr System hat eine %s CPU und %s FPU und erfüllt somit nicht diese Voraussetzungen.\n\n"
  111. ;     "Besorgen Sie sich die Version von \"StarAm Plan\", die nur eine 68000 CPU voraussetzt und installieren Sie dann diese.\n\n"
  112. ;     "Die Installation wird nicht durchgeführt!"))
  113. (set #LargeCPU
  114. (cat "Dies ist die Version von \"StarAm Plan\", die bereits ab einer 68000 CPU ohne FPU lauffähig ist.\n\n"
  115.      "Es gibt eine Version von \"StarAm Plan\", die auf eine 68020 CPU und 68881 FPU optimiert ist.\n"
  116.      "Ihr System hat eine %s CPU und %s FPU und erfüllt somit die Vorraussetzungen für die optimierte Version.\n\n"
  117.      "Sie sollten sich die optimierte Version von \"StarAm Plan\" besorgen und dann diese installieren.\n\n"
  118.      "Wollen Sie trotzdem mit der Installation fortfahren, um ersteinmal die nichtoptimierte Version zu nutzen?"))
  119. (set #ErrorMem
  120. (cat "\nDieses Installationsprogramm benötigt mindestens ca. 1600000 Bytes freien Arbeitsspeicher.\n\n"
  121.      "Momentan sind aber nur %s Bytes Arbeitsspeicher frei.\n\n"
  122.      "Beenden Sie alle Programme und schließen Sie alle Fenster. Versuchen Sie es dann noch ein weiteres Mal. "
  123.      "Sollten Sie dann wieder diese Meldung erhalten, so müssen Sie die Installation von Hand durchführen oder "
  124.      "sich mehr Arbeitsspeicher kaufen.\n\n"
  125.      "Die Installation kann nicht durchgeführt werden!"))
  126. (set #Wellcome "Bitte wählen Sie, wie die Installation durchgeführt werden soll, je nach Ihrem Wissensstand über den Amiga.")
  127. (set #AskOptMes
  128. (cat "Sie benutzen eine stark veraltete Version des Installers (<V42.6), deshalb wird die nächste Seite etwas ungwöhnlich aussehen:\n"
  129.      "Sie enthält Auswahlfelder, die keine Bezeichnung haben. Lassen Sie sich dadurch nicht verwirren! Dies ist vollkommen korrekt! "
  130.      "Beachten Sie nur die Auswahlfelder mit einer Bezeichnung!"))
  131. (set #DiskVoll
  132. (cat "Die restliche Dokumentation paßt nicht mehr auf den Datenträger, wählen Sie daher bitte ein neues Verzeichnis "
  133.      "für die Dokumentation. Es wird kein Verzeichnis erzeugt!\n"
  134.      "Wenn Sie \"StarAm Plan\" auf Diskette installieren, dann legen Sie bitte eine leere, "
  135.      "formatierte Diskette ein und wählen dann diese aus."))
  136. (set #AmLoeschen "Lösche temporäre Dateien...")
  137. (set #CPUHelp "Wenn Sie die optimierte Version nicht zur Hand haben, dann sollten sie \"Ja\" antworten.")
  138. (set #InstallAborted "Die Installation wird nicht durchgeführt.")
  139. (set #AskDir1 "Soll für \"StarAm Plan\" ein eigenes Verzeichnis erzeugt werden bzw. befindet sich \"StarAm Plan\" in einem eigenen Verzeichnis?")
  140. (set #Empfohlen "Sehr zu empfehlen!")
  141. (set #AskDir2 "Geben Sie das Verzeichnis, in dem sich das Verzeichnis \"StarAm Plan\" befindet bzw. erzeugt werden soll, an:")
  142. (set #AskDir3 "Geben Sie das Verzeichnis, in dem sich \"StarAm Plan\" befindet bzw. in das \"StarAm Plan\" installiert werden soll, an:")
  143. (set #AskUnpackProg "Soll das Programm entpackt werden?")
  144. (set #AskUnpackProgHelp "Ohne geht's nicht! Wählen Sie \"Nein\", wenn Sie nur die Dokumentation und die Beispiele installieren wollen.")
  145. (set #AskTmpDel "Sollen die temporären Dateien auch wieder gelöscht werden?")
  146. (set #WaehleDateien "Wählen Sie die zu kopierenden Dateien:")
  147. (set #AskDefaults "Sollen Ihre Voreinstellungen überschrieben werden?")
  148. (set #AskObj "Sollen ihre benutzerdefinierten Objekte überschrieben werden?")
  149. (set #AskMath "Sollen ihre definierten mathematischen Sonderzeichen überschrieben werden?")
  150. (set #AskIcons "Sollen die Images überschrieben werden?")
  151. (set #AskLocale "Welche Sprachen wollen Sie installieren? Die Sprache Deutsch ist eingebaut und braucht nicht extra installiert zu werden.")
  152. (set #AskConvert "Wollen Sie das Programm \"Convert\" installieren?")
  153. (set #AskUnpackDocs "Soll die Dokumentation entpackt werden?")
  154. (set #AskUnpackDocsHelp "Nur wenn Sie keine Dokumentation brauchen und die aktuellen Lizenzbestimmungen bereits gelesen haben, dürfen Sie \"Nein\" sagen!")
  155. (set #AskDir4 
  156. (cat "Geben Sie das Verzeichnis, in das die Dokumentation kopiert werden soll, an. Für die Online-Hilfe müssen "
  157.      "sich \"StarAm Plan\" und \"StarAm Plan.guide\" im selben Verzeichnis befinden.\nAllein das Programm "
  158.      "und \"StarAm Plan.guide\" benötigen 1,1MB. Auf dem Datenträger sind noch %ld KBytes frei.\nEs wird kein Verzeichnis erzeugt!"))
  159. (set #AskDir4Help "Wenn Sie die Online-Hilfe von \"StarAm Plan\" benutzen wollen, dann dürfen Sie das Verzeichnis nicht ändern!\n\n")
  160. (set #WaehleDoks "Welche Teile der Dokumentation sollen kopiert werden?")
  161. (set #WaehleOptDoks "Welche optionalen Teile der Dokumentation sollen kopiert werden?")
  162. (set #CreatingDir1 "Verzeichnis \"StarAm Plan\" wird erzeugt.")
  163. (set #UnpackingProg "Entpacke das Hauptprogramm...")
  164. (set #CreatingDirCat "Verzeichnis \"Catalogs\" wird erzeugt.")
  165. (set #CopyRTLib "Kopiere \"reqtools.library\", © Nico François, nach \"LIBS:\"")
  166. (set #CopyRTLibHelp "Ohne die reqtools.library V38 ist \"StarAm Plan\" nicht lauffähig!\n\n")
  167. (set #UnpackingDoks "Entpacke die Dokumentation...")
  168. (set #AskDir5
  169. (cat "Die Dokumentation paßt nicht mehr auf den Datenträger, wählen Sie daher bitte ein extra Verzeichnis für die "
  170.      "Dokumentation. Es wird kein Verzeichnis erzeugt!\n"
  171.      "Wenn Sie \"StarAm Plan\" auf Diskette installieren, dann legen Sie bitte eine leere, formatierte "
  172.      "Diskette ein und wählen dann diese aus."))
  173. (set #AskCreateDateien "Soll das Verzeichnis \"Dateien\" erzeugt werden?")
  174. (set #AskCreateDateienHelp "Dieses Verzeichnis verwendet \"StarAm Plan\" standardmäßig für die Daten.\n")
  175. (set #NoOnlineHelpMes "Die Online-Hilfe von \"StarAm Plan\" ist nicht verfügbar!")
  176. (set #CheckDiskSpace "Prüfe den freien Platz auf dem Datenträger...")
  177. (set #ErmittleIconPos "Ermittle bisherige Piktogramm-Positionen...")
  178. )
  179. (
  180. ;=============================
  181. ;=== Englische Erklärungen ===
  182. ;=============================
  183. (set #introduction
  184. (cat "\nWith this installation programe you can install or upate \"StarAm Plan\"."
  185.        "\n\nUser settings "
  186.        "are copied over existing ones only after request.\n\n"
  187.        "A directory \"StarAm Plan\" is created automatically (in EXPERT mode optionally).\n\n"
  188.        "The installation on disk is supported actively."))
  189. (set #Ja "Yes")
  190. (set #Nein "No")
  191. (set @askbool-help "You should usually answer this question with \"No\".")
  192. (set #TMP "RAM:SAP")
  193. (set #longProgrHelp
  194. (cat "This files are the main programe, "
  195.      "default settings, images and the "
  196.      "converting tool.\n\n"
  197.      "\"StarAm Plan\" is the main programe\n"
  198.      "\"SAP.s\" is the default settings file\n"
  199.      "\"SAP.obj\" contains some userdefined objects.\n"
  200.      "\"MathCharDef\" defines math. symbols.\n"
  201.      "\"Piktogramme\" contains the images "
  202.      "and is absolutely required for working!\n"
  203.      "\"Convert\" converts files of "
  204.      "\"StarAm Plan\" version 1.x. You need this only, "
  205.      "if you have such files. The recent version of \"StarAm Plan\" cannot read such files!\n\n"))
  206. (set #ConvertHelp
  207. (cat "\"Convert\" converts files of \"StarAm Plan\" version 1.x. "
  208.      "You need this only, if you have such files. "
  209.      "The recent version of \"StarAm Plan\" cannot read such files!"))
  210. (set #LocaleHelp
  211. (cat "Herewith you decide, which languages are available for the programe texts of "
  212.      "\"StarAm Plan\". German is the build in language "
  213.      "and is therefore always availabe.\n"
  214.      "You select the used language in the preferences editor \"Locale\" "
  215.      "of the Workbench. Read to it your manual of the Workbench and "
  216.      "the file \"ReadMeFirst!\"!\n\n"))
  217. (set #dokHelpT1 "Bitte Lesen - Important informations and known bugs of the programe (in german)\n\n")
  218. (set #dokHelpT2 "ReadMeFirst! - Important informations for non german user (in english)\n\n")
  219. (set #dokHelpT3 "StarAm Plan.guide - Manual as AmigaGuide and online help (in german)\n\n")
  220. (set #dokHelpT4
  221. (cat "StarAm Plan.dvi - Manual to print with TeX (in german)\n\n"
  222.      "Quick Manual - short manual in english\n\n"
  223.      "Geschichte - History of the programe (in german)\n\n"
  224.      "History - History in englisch\n\n"
  225.      "Registrierung - Registerform (in german)\n\n"
  226.      "Register - Registerform in english\n\n"))
  227. (set #dokHelpT4s
  228. (cat "StarAm Plan.dvi - Manual to print with TeX (in german)\n\n"
  229.      "Quick Manual - short manual in english\n\n"
  230.      "History - History in englisch\n\n"
  231.      "Register - Registerform in english\n\n"))
  232. (set #dokHelpT5 "Convert.dok - Manual of \"Convert\" (in german)\n\n")
  233. (set #dokHelpT6
  234. (cat "Dateien - Examples for \"StarAm Plan\"\n\n"
  235.      "StarAm_Plan.cd, StarAm_PlanGB.ct, StarAm_PlanIT.cd - You need this files only, if you want to create a translation for \"StarAm Plan\"\n\n"))
  236. (set #ErrorVersion
  237. (cat "\n\"StarAm Plan\" needs at least AmigaOS 3.0, this is version 39.\n\n"
  238.      "But only version %ld.%ld of AmigaOS is installed on your system.\n\n"
  239.      "You should update your system onto the recent AmigaOS 3.1 (or higher)!\n\n"
  240.      "The installation is not done!"))
  241. (set #keine "no")
  242. ;(set #ErrorCPU
  243. ;(cat "\nThis is the distribution of \"StarAm Plan\", which needs at least a 68020 CPU and 68881 FPU.\n\n"
  244. ;     "Your system has only %s CPU and %s FPU and thus doesn't fulfill these conditions.\n\n"
  245. ;     "Get the distribution of \"StarAm Plan\", which only needs a 68000 CPU and then install this distribution.\n\n"
  246. ;     "The installation is not done!"))
  247. (set #LargeCPU
  248. (cat "This is the distribution of \"StarAm Plan\", which runs already on a 68000 CPU without FPU.\n\n"
  249.      "There is a distribution of \"StarAm Plan\", which is optimised for a 68020 CPU and 68881 FPU.\n"
  250.      "Your system has a %s CPU and %s FPU and thus fullfill the conditions for the optimised version.\n\n"
  251.      "You should get the optimised distribution of \"StarAm Plan\" and then install this distribution.\n\n"
  252.      "Do you still want to proceed with installation, to use the nonoptimised version?"))
  253. (set #ErrorMem
  254. (cat "\nThis installation programe needs at least ca. 1600000 bytes free RAM.\n\n"
  255.      "At the moment only %s bytes RAM are free.\n\n"
  256.      "Quit all programs and close all windows. Try it again. "
  257.      "If you get this message again, you must do the installation by hand or "
  258.      "buy more RAM.\n\n"
  259.      "The installation can't be done!"))
  260. (set #Wellcome "Please indicate how the installation should proceed (based upon your knowledge of the Amiga)")
  261. (set #AskOptMes
  262. (cat "You use a very old version of  Installer (<V42.6), so the next page will look unusual:\n"
  263.      "It contains checkboxes, which haven't a label. Do not become confused! This is completely correct! "
  264.      "Only regard the checkboxes with a label!"))
  265. (set #DiskVoll
  266. (cat "The remaining documentation doesn't fit on the disk, so choose a new directory for the documentation please. No directory is created!\n"
  267.      "If you install \"StarAm Plan\" on floppy disk, then please insert an empty formatted disk into any drive and "
  268.      "select this disk."))
  269. (set #AmLoeschen "Deleting temporary files...")
  270. (set #CPUHelp "If you don't have the optimised distribution then you should answer \"Yes\".")
  271. (set #InstallAborted "The installation is not done.")
  272. (set #AskDir1 "Do you want to create \"StarAm Plan\" its own directory or does \"StarAm Plan\" have its own directory?")
  273. (set #Empfohlen "Strongly recommended!")
  274. (set #AskDir2 "Choose the directory in which the directory \"StarAm Plan\" resides or in which you want to create the directory \"StarAm Plan\":")
  275. (set #AskDir3 "Choose the directory in which \"StarAm Plan\" resides or in which you want to install \"StarAm Plan\":")
  276. (set #AskUnpackProg "Do you want to unpack the programe?")
  277. (set #AskUnpackProgHelp "Without it won't work! Choose \"No\" if you only want to install the documentation and the examples.")
  278. (set #AskTmpDel "Do you want to delete the temporary files?")
  279. (set #WaehleDateien "Choose the files to copy:")
  280. (set #AskDefaults "Do you want to overwrite your old settings?")
  281. (set #AskObj "Do you want to overwrite your userdefined objects?")
  282. (set #AskMath "Do you want to overwrite your defined mathematic symbols?")
  283. (set #AskIcons "Do you want to overwrite the images?")
  284. (set #AskLocale "Which languages do you want to install? The language German is build in and needn't to be installed explicitly.")
  285. (set #AskConvert "Do you want to install the tool \"Convert\"?")
  286. (set #AskUnpackDocs "Do you want to unpack the documentation?")
  287. (set #AskUnpackDocsHelp "You may say \"No\" only if you don't need the documentation AND have read the recent license already!")
  288. (set #AskDir4 
  289. (cat "Select the directory in which you want to copy the documentation. If you want to use the online help then "
  290.      "\"StarAm Plan\" and \"StarAm Plan.guide\" must be in the same directory.\nThe programe and "
  291.      "\"StarAm Plan.guide\" (without other files) need 1,1MB. On the disk are %ld KBytes free.\nNo directory is created!"))
  292. (set #AskDir4Help "If you want to use the online help of \"StarAm Plan\" then you mustn't change the directory!\n\n")
  293. (set #WaehleDoks "Which parts of the documentation do you want to copy?")
  294. (set #WaehleOptDoks "Which optional parts of the documentation do you want to copy?")
  295. (set #CreatingDir1 "Creating directory \"StarAm Plan\"...")
  296. (set #UnpackingProg "Unpacking main programe...")
  297. (set #CreatingDirCat "Creating directory \"Catalogs\"...")
  298. (set #CopyRTLib "Copying \"reqtools.library\", © Nico François, to \"LIBS:\"")
  299. (set #CopyRTLibHelp "Without the reqtools.library v38 \"StarAm Plan\" won't work!\n\n")
  300. (set #UnpackingDoks "Unpacking documentation...")
  301. (set #AskDir5
  302. (cat "The documentation doesn't fit on the disk. Please choose an extra directory for the "
  303.      "documentation.\nNo directory is created!"
  304.      "If you install \"StarAm Plan\" on floppy disk then insert an empty formatted disk into any drive and select this disk."))
  305. (set #AskCreateDateien "Do you want to create the directory \"Dateien\"?")
  306. (set #AskCreateDateienHelp "This directory is used by \"StarAm Plan\" as default to save the data.\n")
  307. (set #NoOnlineHelpMes "The online help of \"StarAm Plan\" is not available!")
  308. (set #CheckDiskSpace "Checking free space on disk...")
  309. (set #ErmittleIconPos "Getting old icon positions...")
  310. )
  311. )
  312.  
  313. ;=============================
  314. ; Prozeduren
  315. ;=============================
  316.  
  317. ; Entfernen Sie die 6 Semikolons in den folgenden Zeilen, wenn sie mindestens Installer V42.12 haben:
  318. ; Remove the 6 semikolons in the following lines, if you have at least Installer v42.12:
  319. (procedure P_KeepIconPos
  320.      (set #P_Datei1 (if (= #Pfad "") (#Datei) (tackon #Pfad #Datei)))
  321.      (set #P_Datei2 (if (= #Pfad "") (fileonly #Datei) (#Datei)))
  322. ;     (if (exists #P_Datei1)
  323. ;         (
  324. ;         (iconinfo (dest #P_Datei1) (getposition "#x" "#y"))
  325. ;         (tooltype (dest (tackon "RAM:SAP" #P_Datei2)) (setposition #x #y))
  326. ;         )
  327. ;     )
  328. )
  329.  
  330. (procedure P_CheckSize
  331.      (if (NOT @pretend)
  332.      (while (< (getdiskspace #doks-dest)
  333.                (- (* (+ (/ (getsize (tackon "RAM:SAP" #Datei)) 512) 2) 512)
  334.                   (if (exists (tackon #doks-dest #Datei))
  335.                       (* (+ (/ (getsize (tackon #doks-dest #Datei)) 512) 2) 512)
  336.                       0
  337.                   )
  338.                )
  339.             )
  340.             (set #doks-dest (askdir
  341.                                 (prompt #DiskVoll)
  342.                                 (help   @askdir-help)
  343.                                 (default #doks-dest)
  344.                                 (disk)))
  345.      )
  346.      )
  347. )
  348.  
  349. (procedure P_SumSize
  350.     (working #CheckDiskSpace)
  351.     (set #SumSize 1536)
  352.     (foreach (tackon "RAM:SAP" #Verzeichnis) "#?"
  353.         (set #SumSize 
  354.              (+ #SumSize
  355.                 (- (* (+ (/ (getsize (tackon (tackon "RAM:SAP" #Verzeichnis) @each-name)) 512) 2) 512)
  356.                    (if (exists (tackon (tackon #doks-dest #Verzeichnis) @each-name))
  357.                        (* (+ (/ (getsize (tackon (tackon #doks-dest #Verzeichnis) @each-name)) 512) 2) 512)
  358.                        0
  359.                    )
  360.                 )
  361.              )
  362.         )
  363.     )
  364.     (set #Dummy #SumSize)
  365. )
  366.  
  367. (procedure P_AufraeumenProgramm
  368.      (if (OR (OR #Loeschen1 (< @user-level 2)) @pretend)
  369.          ((working #AmLoeschen)
  370. ;          (if (< #installer-version 43)
  371. ;              (
  372.               (foreach #TMP "#?" (delete (tackon #TMP @each-name) (safe)))
  373.               (foreach "RAM:SAP/Piktogramme" "#?" (delete (tackon "RAM:SAP/Piktogramme" @each-name) (safe)))
  374.               (delete "RAM:SAP/Piktogramme")
  375.               (delete "RAM:SAP/Catalogs/English/StarAm_Plan.catalog" (safe)) (delete "RAM:SAP/Catalogs/English" (safe) (infos))
  376.               (delete "RAM:SAP/Catalogs/Italiano/StarAm_Plan.catalog" (safe)) (delete "RAM:SAP/Catalogs/Italiano" (safe) (infos))
  377.               (delete "RAM:SAP/Catalogs" (safe))
  378.               (delete "RAM:SAP.info" (safe))
  379. ;              )
  380. ;              (delete #TMP (all) (safe))
  381. ;          )
  382.          )
  383.      )
  384. )
  385.  
  386. (procedure P_AufraeumenDoks
  387.      (if (OR (OR #Loeschen2 (< @user-level 2)) @pretend)
  388.          ((working #AmLoeschen)
  389. ;          (if (< #installer-version 43)
  390. ;              (
  391.               (foreach #TMP "#?" (delete (tackon #TMP @each-name) (safe)))
  392.               (foreach "RAM:SAP/Dateien" "#?" (delete (tackon "RAM:SAP/Dateien" @each-name) (safe)))
  393.               (delete "RAM:SAP/Dateien" (safe))
  394.               (delete #TMP (safe))
  395.               (delete "RAM:SAP.info" (safe))
  396. ;              )
  397. ;              (delete #TMP (all) (safe))
  398. ;          )
  399.          )
  400.      )
  401. )
  402.  
  403. ;==========================
  404. ; Hauptprogramm
  405. ;==========================
  406.  
  407. (set #Pfad "")
  408.  
  409. (complete 0)
  410.  
  411. (message #introduction)
  412.  
  413. ; Überprüfe Systemvorrausetzungen
  414.  
  415. (set #OSVerRev (getversion))
  416. (set #OSVer (shiftright #OSVerRev 16))
  417. (set #OSRev (bitand #OSVerRev $FFFF))
  418. (if (< #OSVer 39)
  419.     (exit (#ErrorVersion #OSVer #OSRev) (quiet))
  420. )
  421.  
  422. (set #cpu (database "cpu"))
  423. (set #fpu (database "fpu"))
  424. (set #nofpu (patmatch "NOFPU" #fpu))
  425. ;(if (OR (patmatch "(68000|68010)" #cpu) #nofpu)
  426. ;    (
  427. ;    (if #nofpu (set #fpu #keine))
  428. ;    (exit (#ErrorCPU #cpu #fpu) (quiet))
  429. ;    )
  430. ;)
  431. (if (AND (NOT (patmatch "(68000|68010)" #cpu)) (NOT #nofpu))
  432.     (if (NOT (askbool
  433.                   (prompt (#LargeCPU #cpu #fpu))
  434.                   (help #CPUHelp)
  435.                   (choices #Ja #Nein)))
  436.         (exit #InstallAborted (quiet))
  437.     )
  438. )
  439.  
  440. (set #FreeMem (database "total-mem") )
  441. (if (OR (AND (< #FreeMem "1572864") (= (strlen #FreeMem) 7)) (< (strlen #FreeMem) 7))
  442.     (exit (#ErrorMem #FreeMem) (quiet))
  443. )
  444.  
  445. ; Stelle die notwendigen Fragen
  446.  
  447. (welcome #Wellcome)
  448.  
  449. (if (= @user-level 2)
  450.     (set #Verz (askbool 
  451.                (prompt #AskDir1)
  452.                (help #Empfohlen) (choices #Ja #Nein))
  453.     )
  454. )
  455.  
  456. (if (OR #Verz (< @user-level 2))
  457.     ((set @default-dest
  458.         (askdir
  459.                 (prompt #AskDir2)
  460.                 (help   @askdir-help)
  461.                 (default @default-dest)
  462.         )
  463.      )
  464.      (set @default-dest (tackon @default-dest "StarAm Plan"))
  465.     )
  466.     (set @default-dest
  467.         (askdir
  468.                 (prompt #AskDir3)
  469.                 (help   @askdir-help)
  470.                 (default @default-dest)
  471.         )
  472.     )
  473. )
  474.  
  475. (if (= @user-level 2)
  476.     (set #Entpacken1 (askbool
  477.                      (prompt #AskUnpackProg)
  478.                      (help #AskUnpackProgHelp)
  479.                      (choices #Ja #Nein)
  480.                      )
  481.     )
  482. )
  483.  
  484. (if (OR #Entpacken1 (< @user-level 2))
  485.     (
  486.      (if (= @user-level 2)
  487.          (
  488.          (set #Loeschen1 (askbool
  489.                          (prompt #AskTmpDel)
  490.                          (help #Empfohlen) (choices #Ja #Nein)
  491.                          ))
  492.          (set #ProgMask (askoptions (prompt #WaehleDateien)
  493.                                (help #longProgrHelp @askoptions-help)
  494.                                (choices "StarAm Plan" "Convert" "SAP.s" "SAP.obj" "MathCharDef" "Piktogramme") ) )
  495.          )
  496.      )
  497.      
  498.      (if (OR (IN #ProgMask 2) (< @user-level 2))
  499.          (set #DefaultsBool (if (exists (tackon @default-dest "SAP.s") (noreq))
  500.                                 (askbool (prompt #AskDefaults)
  501.                                          (help @askbool-help)
  502.                                          (choices #Ja #Nein))
  503.                                 1
  504.                             )
  505.          )
  506.      )
  507.      
  508.      (if (OR (IN #ProgMask 3) (< @user-level 2))
  509.          (set #ObjBool (if (exists (tackon @default-dest "SAP.obj") (noreq))
  510.                            (askbool (prompt #AskObj)
  511.                                     (help @askbool-help)
  512.                                     (choices #Ja #Nein))
  513.                            1
  514.                        )
  515.          )
  516.      )
  517.      
  518.      (if (OR (IN #ProgMask 4) (< @user-level 2))
  519.          (set #MathBool (if (exists (tackon @default-dest "MathCharDef") (noreq))
  520.                             (askbool (prompt #AskMath)
  521.                                      (help @askbool-help)
  522.                                      (choices #Ja #Nein))
  523.                             1
  524.                         )
  525.          )
  526.      )
  527.      
  528.      (if (OR (IN #ProgMask 5) (< @user-level 2))
  529.          (set #IconsBool (if (exists (tackon @default-dest "Piktogramme") (noreq))
  530.                              (askbool (prompt #AskIcons)
  531.                                       (help @askbool-help)
  532.                                       (choices #Ja #Nein))
  533.                              1
  534.                          )
  535.          )
  536.      )
  537.      
  538.      (if (= @language "deutsch")
  539.          (set #LocaleMask %00)
  540.          (if (= @language "english")
  541.              (set #LocaleMask %01)
  542.              (if (= @language "italiano")
  543.                  (set #LocaleMask %10)
  544.                  ((set #AskLocaleMask 1)
  545.                   (set #LocaleMask %01)
  546.                  )
  547.              )
  548.          )
  549.      )
  550.      (if (OR #AskLocaleMask (= @user-level 2))
  551.          (set #LocaleMask (askoptions (prompt #AskLocale)
  552.                                       (help #LocaleHelp @askoptions-help)
  553.                                       (choices "English" "Italiano")
  554.                                       (default #LocaleMask)))
  555.      )
  556.      
  557.      (if (< @user-level 2)
  558.          (set #ConvertBool (askbool
  559.                            (prompt #AskConvert)
  560.                            (help #ConvertHelp)
  561.                            (choices #Ja #Nein)))
  562.      )
  563.     )
  564. )
  565.  
  566. (if (= @user-level 2)
  567.     (
  568.     (set #Entpacken2 (askbool
  569.                      (prompt #AskUnpackDocs)
  570.                      (help #AskUnpackDocsHelp)
  571.                      (choices #Ja #Nein)))
  572.     (if #Entpacken2 
  573.         (
  574.         (set #Loeschen2 (askbool
  575.                                  (prompt #AskTmpDel)
  576.                                  (help #Empfohlen) (choices #Ja #Nein)))
  577.         (set #DiskSpace (/ (getdiskspace (pathonly @default-dest)) 1024))
  578.         (set #doks-dest (askdir
  579.                                 (prompt (#AskDir4 #DiskSpace))
  580.                                 (help #AskDir4Help @askdir-help)
  581.                                 (default @default-dest)
  582.                                 (newpath)))
  583.         (if (= @language "deutsch")
  584.             (set #DoksMask %00010010100101)
  585.             (set #DoksMask %00010101010110)
  586.         )
  587.         (if (IN #ProgMask 1)
  588.             (set #DoksMask (BITOR #DoksMask %00001000000000))
  589.         )
  590.         (set #DoksMask (askoptions (prompt #WaehleDoks)
  591.                                    (help #dokHelpT1 #dokHelpT2 #dokHelpT3 #dokHelpT4 #dokHelpT5 #dokHelpT6 @askoptions-help)
  592.                                    (choices "Bitte Lesen" "ReadMeFirst!" "StarAm Plan.guide" "StarAm Plan.dvi" "Quick Manual" "Geschichte"
  593.                                             "History" "Registrierung" "Register" "Convert.dok" "Dateien" "StarAm_Plan.cd" "StarAm_PlanGB.ct"
  594.                                             "StarAm_PlanIT.ct")
  595.                                    (default #DoksMask)))
  596.         )
  597.     )
  598.     )
  599.     (
  600.     (set #doks-dest @default-dest)
  601.     (if (= @language "deutsch")
  602.         (
  603.         (if (OR (< #installer-version 42) (AND (= #installer-version 42) (< #installer-revision 6)))
  604.             (message #AskOptMes)
  605.         )
  606.         (set #DoksMask %00010010100000)
  607.         (set #DoksMask (askoptions (prompt #WaehleOptDoks)
  608.                                    (help #dokHelpT2 #dokHelpT4s #dokHelpT6 @askoptions-help)
  609.                                    (choices "" "ReadMeFirst!" "" "StarAm Plan.dvi" "" "Geschichte"
  610.                                             "" "Registrierung" "" "" "Dateien" "StarAm_Plan.cd" "StarAm_PlanGB.ct"
  611.                                             "StarAm_PlanIT.ct")
  612.                                    (default #DoksMask)))
  613.         (set #DoksMask (BITOR #DoksMask %00000000000101))
  614.         )
  615.         (
  616.         (if (OR (< #installer-version 42) (AND (= #installer-version 42) (< #installer-revision 6)))
  617.             (message #AskOptMes)
  618.         )
  619.         (set #DoksMask %00010101010000)
  620.         (set #DoksMask (askoptions (prompt #WaehleOptDoks)
  621.                                    (help #dokHelpT4s #dokHelpT6 @askoptions-help)
  622.                                    (choices "" "" "" "StarAm Plan.dvi" "Quick Manual" ""
  623.                                             "History" "" "Register" "" "Dateien" "StarAm_Plan.cd" "StarAm_PlanGB.ct"
  624.                                             "StarAm_PlanIT.ct")
  625.                                    (default #DoksMask)))
  626.         (set #DoksMask (BITOR #DoksMask %00000000000110))
  627.         )
  628.     )        
  629.     (if #ConvertBool
  630.         (set #DoksMask (BITOR #DoksMask %00001000000000))
  631.     )
  632.     )
  633. )
  634.  
  635. ; Nun geht's richtig los
  636.  
  637. (if (= (exists @default-dest) 0)
  638.     (makedir @default-dest
  639.         (prompt #CreatingDir1)
  640.         (infos)
  641.     )
  642. )
  643.  
  644. (complete 1)
  645.  
  646. (if (OR #Entpacken1 (< @user-level 2))
  647.     (
  648.      (working #UnpackingProg)
  649.      (run ("lha x sap.lha ram:") (safe))
  650.     
  651.      (complete 12)
  652.      
  653.      (onerror (P_AufraeumenProgramm))
  654.  
  655.      (if (OR (IN #ProgMask 0) (< @user-level 2))
  656.          (
  657.          (set #Datei (tackon @default-dest "StarAm Plan"))
  658.          (P_KeepIconPos)
  659.          (copyfiles
  660.                    (source "RAM:SAP/StarAm Plan")
  661.                    (dest @default-dest)
  662.                    (infos)
  663.                    (delopts "fail") (optional "oknodelete" "askuser")
  664.          )
  665.          )
  666.      )
  667.      
  668.      (complete 33)
  669.      
  670.      (if (OR #ConvertBool (IN #ProgMask 1))
  671.          (
  672.          (set #Datei (tackon @default-dest "Convert"))
  673.          (P_KeepIconPos)
  674.          (copyfiles
  675.                    (source "RAM:SAP/Convert")
  676.                    (dest @default-dest)
  677.                    (infos)
  678.                    (delopts "fail") (optional "oknodelete" "askuser")
  679.          )
  680.          )
  681.      )
  682.      
  683.      (complete 34)
  684.      
  685.      (if (IN #LocaleMask 0)
  686.          ((if (= (exists (tackon @default-dest "Catalogs")) 0)
  687.               (makedir (tackon @default-dest "Catalogs")
  688.                        (prompt #CreatingDirCat)
  689.               )
  690.           )
  691.           (copyfiles
  692.                     (source "RAM:SAP/Catalogs/English")
  693.                     (dest (tackon @default-dest "Catalogs/English"))
  694.                     (all) (infos)
  695.                     (delopts "fail") (optional "oknodelete" "askuser")
  696.           )
  697.          )
  698.      )
  699.      
  700.      (complete 35)
  701.      
  702.      (if (IN #LocaleMask 1)
  703.          ((if (= (exists (tackon @default-dest "Catalogs")) 0)
  704.               (makedir (tackon @default-dest "Catalogs")
  705.                        (prompt #CreatingDirCat)
  706.               )
  707.           )
  708.           (copyfiles
  709.                     (source "RAM:SAP/Catalogs/Italiano")
  710.                     (dest (tackon @default-dest "Catalogs/Italiano"))
  711.                     (all) (infos)
  712.                     (delopts "fail") (optional "oknodelete" "askuser")
  713.           )
  714.          )
  715.      )
  716.      
  717.      (complete 36)
  718.      
  719.      (if #DefaultsBool
  720.          (
  721.          (set #Datei (tackon @default-dest "SAP.s"))
  722.          (P_KeepIconPos)
  723.          (copyfiles (source "RAM:SAP/SAP.s") (dest @default-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  724.          )
  725.      )
  726.      
  727.      (if #ObjBool
  728.          (copyfiles (source "RAM:SAP/SAP.obj") (dest @default-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  729.      )
  730.      
  731.      (if #MathBool
  732.          (
  733.          (set #Datei (tackon @default-dest "MathCharDef"))
  734.          (P_KeepIconPos)
  735.          (copyfiles (source "RAM:SAP/MathCharDef") (dest @default-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  736.          )
  737.      )
  738.      
  739.      (if #IconsBool
  740.          (
  741.          (set #Datei (tackon @default-dest "Piktogramme"))
  742.          (P_KeepIconPos)
  743.          (copyfiles (source "RAM:SAP/Piktogramme") (dest (tackon @default-dest "Piktogramme")) (all) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  744.          )
  745.      )
  746.      
  747.      (complete 39)
  748.      
  749.      (copylib (prompt #CopyRTLib)
  750.               (help #CopyRTLibHelp @copylib-help)
  751.               (source "RAM:SAP/reqtools.library")
  752.               (dest "LIBS:")
  753.               (confirm)
  754.               (delopts "fail") (optional "oknodelete" "askuser"))
  755.      
  756.      (complete 40)
  757.      
  758.      (P_AufraeumenProgramm)
  759.     )
  760. )
  761.  
  762. (complete 41)
  763.  
  764. (if (OR #Entpacken2 (< @user-level 2))
  765.     (
  766.      (working #UnpackingDoks)
  767.      (run ("lha x sapdoks.lha ram:") (safe))
  768.      
  769.      (complete 55)
  770.  
  771.      (onerror (P_AufraeumenDoks))
  772.  
  773.      (if (AND (< @user-level 2) (NOT @pretend))
  774.          (while (< (getdiskspace @default-dest)
  775.                    (- (getsize "RAM:SAP/StarAm Plan.guide")
  776.                       (if (exists (tackon #doks-dest "StarAm Plan.guide"))
  777.                           (getsize (tackon #doks-dest "StarAm Plan.guide"))
  778.                           0
  779.                       )
  780.                    )
  781.                 )
  782.                 (set #doks-dest (askdir
  783.                                        (prompt #AskDir5)
  784.                                        (help @askdir-help)
  785.                                        (default #doks-dest)
  786.                                        (disk)))
  787.          )
  788.      )
  789.  
  790.      (if (IN #DoksMask 0)
  791.          (
  792.          (set #Datei "Bitte Lesen")
  793.          (P_CheckSize)
  794.          (set #Datei (tackon #doks-dest "Bitte Lesen"))
  795.          (P_KeepIconPos)
  796.          (copyfiles (source "RAM:SAP/Bitte Lesen") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  797.          )
  798.      )
  799.      (if (IN #DoksMask 1)
  800.          (
  801.          (set #Datei "ReadMeFirst!")
  802.          (P_CheckSize)
  803.          (set #Datei (tackon #doks-dest "ReadMeFirst!"))
  804.          (P_KeepIconPos)
  805.          (copyfiles (source "RAM:SAP/ReadMeFirst!") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  806.          )
  807.      )
  808.      (complete 56)
  809.      (if (IN #DoksMask 2)
  810.          (
  811.          (set #Datei "StarAm Plan.guide")
  812.          (P_CheckSize)
  813.          (set #Datei (tackon #doks-dest "StarAm Plan.guide"))
  814.          (P_KeepIconPos)
  815.          (copyfiles (source "RAM:SAP/StarAm Plan.guide") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  816.          )
  817.      )
  818.      (if (<> @default-dest #doks-dest)
  819.          (set #NoOnlineHelp 1)
  820.      )
  821.      (complete 69)
  822.      (if (IN #DoksMask 3)
  823.          (
  824.          (set #Datei "StarAm Plan.dvi")
  825.          (P_CheckSize)
  826.          (set #Datei (tackon #doks-dest "StarAm Plan.dvi"))
  827.          (P_KeepIconPos)
  828.          (copyfiles (source "RAM:SAP/StarAm Plan.dvi") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  829.          )
  830.      )
  831.      (complete 87)
  832.      (if (IN #DoksMask 4)
  833.          (
  834.          (set #Datei "Quick Manual")
  835.          (P_CheckSize)
  836.          (set #Datei (tackon #doks-dest "Quick Manual"))
  837.          (P_KeepIconPos)
  838.          (copyfiles (source "RAM:SAP/Quick Manual") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  839.          )
  840.      )
  841.      (complete 88)
  842.      (if (IN #DoksMask 5)
  843.          (
  844.          (set #Datei "Geschichte")
  845.          (P_CheckSize)
  846.          (set #Datei (tackon #doks-dest "Geschichte"))
  847.          (P_KeepIconPos)
  848.          (copyfiles (source "RAM:SAP/Geschichte") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  849.          )
  850.      )
  851.      (complete 90)
  852.      (if (IN #DoksMask 6)
  853.          (
  854.          (set #Datei "History")
  855.          (P_CheckSize)
  856.          (set #Datei (tackon #doks-dest "History"))
  857.          (P_KeepIconPos)
  858.          (copyfiles (source "RAM:SAP/History") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  859.          )
  860.      )
  861.      (if (IN #DoksMask 7)
  862.          (
  863.          (set #Datei "Registrierung")
  864.          (P_CheckSize)
  865.          (set #Datei (tackon #doks-dest "Registrierung"))
  866.          (P_KeepIconPos)
  867.          (copyfiles (source "RAM:SAP/Registrierung") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  868.          )
  869.      )
  870.      (if (IN #DoksMask 8)
  871.          (
  872.          (set #Datei "Register")
  873.          (P_CheckSize)
  874.          (set #Datei (tackon #doks-dest "Register"))
  875.          (P_KeepIconPos)
  876.          (copyfiles (source "RAM:SAP/Register") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  877.          )
  878.      )
  879.      (if (IN #DoksMask 9)
  880.          (
  881.          (set #Datei "Convert.dok")
  882.          (P_CheckSize)
  883.          (set #Datei (tackon #doks-dest "Convert.dok"))
  884.          (P_KeepIconPos)
  885.          (copyfiles (source "RAM:SAP/Convert.dok") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  886.          )
  887.      )
  888.      (complete 91)
  889.      (if (IN #DoksMask 10)
  890.          (
  891.          (if (NOT @pretend)
  892.              (
  893.              (set #Verzeichnis "Dateien")
  894.              (while (< (getdiskspace #doks-dest) (P_SumSize))
  895.                     (set #doks-dest (askdir
  896.                                     (prompt #DiskVoll)
  897.                                     (help   @askdir-help)
  898.                                     (default #doks-dest)
  899.                                     (disk)))
  900.              )
  901.              )
  902.          )
  903.          (working #ErmittleIconPos)
  904.          (set #Datei (tackon #doks-dest "Dateien"))
  905.          (P_KeepIconPos)
  906.          (set #Pfad #doks-dest)
  907.          (foreach "RAM:SAP/Dateien" "#?"
  908.                   (
  909.                   (set #Datei (tackon "Dateien" @each-name))
  910.                   (P_KeepIconPos)
  911.                   )
  912.          )
  913.          (set #Pfad "")
  914.          (copyfiles (source "RAM:SAP/Dateien") (dest (tackon #doks-dest "Dateien")) (all) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  915.          )
  916.      )
  917.      (complete 95)
  918.      (if (IN #DoksMask 11)
  919.          (
  920.          (set #Datei "StarAm_Plan.cd")
  921.          (P_CheckSize)
  922.          (if (exists (tackon #doks-dest "StarAm_Plan.cd"))
  923.              (
  924.              (protect (tackon #doks-dest "StarAm_Plan.cd") "+w")
  925.              (protect (tackon #doks-dest "StarAm_Plan.cd.info") "+w")
  926.              )
  927.          )
  928.          (set #Datei (tackon #doks-dest "StarAm_Plan.cd"))
  929.          (P_KeepIconPos)
  930.          (copyfiles (source "RAM:SAP/StarAm_Plan.cd") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  931.          (protect (tackon #doks-dest "StarAm_Plan.cd") "-w")
  932.          )
  933.      )
  934.      (complete 96)
  935.      (if (IN #DoksMask 12)
  936.          (
  937.          (set #Datei "StarAm_PlanGB.ct")
  938.          (P_CheckSize)
  939.          (set #Datei (tackon #doks-dest "StarAm_PlanGB.ct"))
  940.          (P_KeepIconPos)
  941.          (copyfiles (source "RAM:SAP/StarAm_PlanGB.ct") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  942.          )
  943.      )
  944.      (complete 97)
  945.      (if (IN #DoksMask 13)
  946.          (
  947.          (set #Datei "StarAm_PlanIT.ct")
  948.          (P_CheckSize)
  949.          (set #Datei (tackon #doks-dest "StarAm_PlanIT.ct"))
  950.          (P_KeepIconPos)
  951.          (copyfiles (source "RAM:SAP/StarAm_PlanIT.ct") (dest #doks-dest) (infos) (delopts "fail") (optional "oknodelete" "askuser"))
  952.          )
  953.      )
  954.      
  955.      (complete 98)
  956.  
  957.      (if (= (exists (tackon @default-dest "Dateien")) 0)
  958.          (makedir (tackon @default-dest "Dateien")
  959.                   (prompt #AskCreateDateien)
  960.                   (help #AskCreateDateienHelp @makedir-help)
  961.                   (infos)
  962.                   (confirm))
  963.      )
  964.  
  965.      (complete 99)
  966.  
  967.      (P_AufraeumenDoks)
  968.     )
  969. )
  970.  
  971. (complete 100)
  972.  
  973. (if (OR #NoOnlineHelp)
  974.     (message #NoOnlineHelpMes)
  975. )
  976.